home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS078A.dsk / RAM TEST 48K 30 MINUTES.bas < prev    next >
BASIC Source File  |  2012-02-16  |  451b  |  20 lines
  1. 10  REM  WRITEN BY MARTIN MILLER
  2. 20  REM  RAM TEST TAKES 30 MIN.
  3. 100  DATA  0,255,85,170
  4. 110  FOR A = 1 TO 4
  5. 120  READ Y
  6. 130  FOR X = 4096 TO 49151
  7. 140  POKE X,Y
  8. 145  PRINT "POKKING "X" WITH "Y
  9. 150  NEXT X
  10. 160  FOR Z = 4096 TO 49151
  11. 170 W =  PEEK(Z)
  12. 180  IF W = Y  THEN 200
  13. 190  PRINT "ADDRESS= ";Z,"DATA= ";W,Y
  14. 195  PRINT "PEEKING "Z" WITH "W
  15. 200  NEXT Z
  16. 210  PRINT " PASS";A"COMPLETED"
  17. 220  NEXT A
  18. 230  RESTORE 
  19. 240  PRINT "RAM TESTED OK "
  20. 250  END